home *** CD-ROM | disk | FTP | other *** search
/ PC Media 23 / PC MEDIA CD23.iso / share / prog / dclib500 / sonidos.int < prev    next >
Encoding:
Text File  |  1994-03-26  |  1.1 KB  |  48 lines

  1. Unit Sonidos;
  2.  
  3. (* Unit Sonidos Versión 1.00a por David Carrero Fernández-Baillo *)
  4. (* 18/09/1993 - Shareware *)
  5.  
  6. (* Librería Sonidos Versión 1.00 para Turbo Pascal 7 Modo Real *)
  7. (* Shareware 1993,94 David Carrero Fernández-Baillo *)
  8. (* 09/01/1994 *)
  9.  
  10. (* Librería Sonidos Versión 2.00 para Turbo Pascal 7 Modo Real *)
  11. (* Shareware 1993,94 David Carrero Fernández-Baillo *)
  12. (* 28/02/1994 - Se añaden nuevos sonidos y funciones nuevas independientes
  13.    de las de unidad CRT. *)
  14.  
  15. INTERFACE
  16.  
  17.      Procedure Retardo(Ms : Word);
  18. {     Procedure CalibrarRetardo;}
  19.      Procedure Sonido(Freq : Word);
  20.      Procedure NoSonido;
  21.      Procedure Nota(Freq, Dura : Word);
  22.  
  23.      Procedure Sonido01;
  24.      Procedure sonido02;
  25.      Procedure sonido03;
  26.      Procedure sonido04;
  27.      Procedure sonido05;
  28.      Procedure sonido06;
  29.      Procedure sonido07;
  30.      Procedure sonido08;
  31.      Procedure sonido09;
  32.      Procedure sonido10;
  33.      Procedure sonido11;
  34.      Procedure sonido12;
  35.      Procedure sonido13;
  36.  
  37.      PROCEDURE Sonido2(F: Longint);
  38.      PROCEDURE NoSonido2;
  39.  
  40. IMPLEMENTATION
  41.  
  42. {...}
  43.  
  44. begin
  45.   Autor1 := Au1;
  46.   CalibrarRetardo;
  47. end.
  48.